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modulé basiccmds ( 


p Ztitle "BASICCMDS = Basic Phone Commands’ 
ident='V04-000') = begin 
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'@ + 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
. ALL RIGHTS RESERVED * 
® 
ie ite SOFTWARE IS Sg Lee UNDER A LICENSE AND MAY BE USED AND gt * 
1 Y IN eee WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
Hd TN CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO A * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
+ 
® 
® 
® 
® 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: eoRPORAT ine NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Facility: VAX/VMS Telephone Facility, Basic Phone Commands 


Abstract: This module handles the basic essential user commands: 
IAL Call someone on the phone. 
ANSWER Answer the phone. 
REJECT Reject a call. 
HANGUP Hang up the phone. 
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Environment: 
oe Author: Paul C. Anagnostopoulos, Creation Date: 12 November 1980 

i 
4 04 v03-003 BLS0251 Benn Schreiber 88-Dec-1983 
t3 be Use SBRKTHRU rather than SBRDCST. 
49 V03-002 MHB0084 Mark Breskalt 17-Jan-1983 

0 5 PHNSESTAB_LINK now alway splays its status via 

1 05 PHNSINFORA; its callers = check the returned status. 


v03-001 PCA0040 Paul Anagnostopoulos 26-Mar-1982 
Major changes to convert from process name to user name. 
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Asbttl "Module Declarations’ 
Libraries and Requires: 


library ‘s s$library:starlet.l32'; 
require ‘phonereq'; 
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Table of Contents: 


1 

1 

1 

1 

1 

1 
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1 

1 

: 

1 forward routine 

1 phn$dial_cmd: novalue, 
1 phn$ring_out: novalue, 
1 phn$locaT Yangle. 

1 phn$rang_Tn: novalue, 
1 phn$jangle_string, 

1 phn$answer_cmd: novalue, 
1 phn$Sanswered: novalue, 
1 phn$reject_cmd: novalue, 
1 phn$rejected: novalue, 
1 eer: novalue, 

1 phn$talk: novalue, 

1 phn$listen: novalue, 

1 phn$hangup_cmd: novalue, 
! phn$hungup: novalue; 
1 
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1 
External References: 


external routine 
phn$break_call, 
phn$break_link, 
phn$cmp_target, 
phn$estab_link, 
phn$Sexit_cmd, 
phn$force_Llinks, 
phn$fresh_screen, 
phn$infora, 
phn$make_tsb, 


1! 
: Own Variables: 


PHONE. 
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v04 PHNSDIAL_CMD = Call Someone on the Phone 1 ~300n 138% 95:07:32 PHONE. SRCIBASICCMDS .B3 31 ° 


1 Rsbttl *PHNSDIAL_CMD = Call Someone on the Phone’ 
i Functional Description: 
Th 


. $s routines handles the DIAL command, used to call someone on the 
phone. 


! Now we will prepare the target apec ities by the user. This gets it 


! ready for use in establishing a link to the person. 


phn$prepare_users_target(.target,false,prepared_target); 


; 1 

; 138 1 

> 114 1 

OW } 

; 19 443 1 

; 118 444 1 ! Formal Parameters: 

; 1 445 1! target Address of descriptor of the argument to the DIAL 
: : rr : command as entered by the user. 

.-% g 448 1 i Implicit Inputs: 

: ! ? rei : global data 

: 125 1 1 ! Implicit Outputs: 

; ; § ¢ ! global data 

; 128 4 1! Returned Value: 

: : , 5 ! none 

; 131 ? i Side Effects: 

. 4 j 9 1 in 

i Rs : 

: : $ 0a § global routine phn$dial_cmd(target): novalue = begin 

; 138 464 Local 

; 139 65 status: long, 

3; 140 reg op: ref pub, ! Points to our PUB. 

3; «(141 gee tp: ref pub; ! Points to target's PUB. 
; 16g 68 local 

3 ie? Be98 local_described_buffer(prepared_target ,nam$c_maxrss); 

; 145 471 

: 146 O42 ! We begin by making sure that our phone is not busy receiving a call 
3 147 47 ! from someone else. 

: 148 474 

3 (149 75 op =. nn$gq_pubhead( 0}; 

; 150 7 if .oplpub_v_answering] then ( 

3 «151 7 phn$inform(phn$_phonebusy) ; 

. 3 § 78 return; 

ae | 79 3 

: 154 

3 1g? 

; 139 

: 135 

: 160 4 ! We now attempt to establish a Link to the target person. If this fails, 
3 16) ! we will get a status back that we can use to display a message. 
: 188 4 status = phnSestab_link(prepared_target.tp); 

3: 61646 f .status nequ phn$_ok then 

5 193 $33 return; 

: 189 a ! Now we have to see if we are satan) taking a redundant Link, that is, 
; 168 494 ! a Link to someone we are already linked to. If so, forget it. 


H 12 
vor-b00 PHNSDIAL-CMD = CaLt Someone'on the Phone 18885-1986 93:55:53 EBNone. SacSBasice 
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if ssraigih a f ren f . aa 
rea n -sm usy); 
Bang inform (phn ipreduacel ts; 

Focuras 


SELES 


! Finally, we set up our PUB so we 3} know who we're robde We also queue 
i a steer ng message to do a first-time ring of the person's phone. 


opCpub_v calling) = who 
op eu ub- {- bus stank. = .t 

n$quéue_smb(smb _ringe out ,describe(Xchar(true))); 
return; 
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end; 


-TITLE BASICCMDS BASICCMDS = Basic Phone Commands 
-IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 


01 00000 P.AAB: .ASCII <i> : 

0001 -BLKB 3 
00000001 00004 P.AAA: .LONG 1 : 
00000000" 00008 »ADDRESS P.AAB : 


.EXTRN PHNS_OK, PHNS_ANSWERED 
*EXTRN PHNS “BUSYCALL> PHN$_CANCALL 


LP PHNS_HUNGUP 
PHN$—JUSTRANG, PHS. MLOGGEDOF F 

“EXTRN PHNS~ REJECTED. P HNS~RING 
SEXTRN PHNSREJECT 
EXTRN PHNS- SENDIN NGMATL 

EXTRN PHNS~ =BADCHD, PHNS_BADHELP 

XTRN PHNS BA 

XTRN PHNS~ BADSMB PHN$_BADSPEC 

TR PDUs NG 


x 
EX D 
EXTRN HN IVREDUN 
EX 


Shall PHRS OPHONEBUSY 

+ sPHNS UNPLU UGGED 
a ee 
et PHA GQ RRODE * NAME 
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-EXTRN PHNSGB_FLAGS, PHNSBREAK_CALL 
BuTRN PHNSBREAK_LINK, PHNSCMP_TARGET 
~EXTRN PHNSESTAB_LINK, PHNSEXIT_CMD 
-EXTRN PHNSFORCE_ | 

~EXTRN PHNSFRESH 
-E HN 
“E 
-E 
-E 


-PSECT SCODES,NOWRT,2 


0004 000 .ENTRY PHNSDIAL_CMD, Save R? : 0462 

SE FEF ce 9E 0000 MOVAB 33 (SP) SP : 
4 AE FF 8F 9A 0000 MOVZBL # PREPARED_TARGET + 0469 

8 A O¢ AE 3 000¢ MOVAB PREPARED TARGET+8, PREPARED_TARGET+4 : 
5 00006 CF D oot) MOVL § PHN$GQ POBHEAD, OP + 0475 
08 Ooro =6¢ 4 €E1 00016 BBC #4, 240(0P) + 0476 
000000006 f bp 0 1 PUSHL #PHNS_PHONEBUSY + 0477 
04 AE SF 00024 1S: PUSHAB PREPARED_TARGET + 0484 

7E D4 00027 CLRL = =(SP) ; 

04 AC DD 00029 PUSHL TARGET ; 

00006 CF 9 FB 0002C CALLS #3, PHNSPREPARE_USERS_TARGET : 
E DD 00 1 PUSHL + 0489 

08 AE 9F 00033 PUSHAB PREPARED_TARGET F 

00006 CF FB 00036 CALLS #2, PHNSESTAB_LINK : 
000000006 8F D1 90 CMPL STATUS, #PHNS—OK + 0490 

12 0004 NEQ 4$ ; 
E DD 0004 PUSHL TP + 0496 

00006 CF 1 FB 0046 CALLS #1, PHNSREDUNDANT : 

16 0 €9 00048 BLBC =«_«aRO. 3 : 
OA DD 0 4 PUSHL #16 : 0497 

04 AE DD 0005 PUSHL TP : 

00006 CF 02 FB 0005 CALLS #2, PHNSBREAK_LINK : 
000000006 ar DD 05 PUSHL #PHNS_IVREDUNTALL + 0498 
00006 CF 1 FB O55 2$: CALLS #1, PANSINFORM Pies 
OOF C3 08 as 0064 3$ BiSB2 #8, g40c0p) : 0505 
OOF8 ¢ 6E 00 00069 MOVL TP. 248(OP) : 0506 
0000" CF 9F 006 PUSHAB P.AAA : 0507 

DD 00 PUSHL Hi : 

00006 CF FB 0 7 CALLS #2, PHNSQUEUE_SMB ; 
0 79 4$: RET : 0511 


; Routine Size: 122 bytes, Routine Base: S$CODE$ + 0000 


12 
S$ = Basic Phone Commands 1-56 1984 02:07: AX-11 Blisgs-32 V4.0-7 Pp 
OUT = Ring Someones Phone 1 =30071 383 95:00:82 PHONE. ERESBASTCEMDS .03551 — US 
Rsbttl *PHNSRING_OUT = Ring Someones Phone’ 
Funct tenet Description: 
This ptooring message royt tne ob I ta So to ring someone's 


have to distinguish between first-time rings 
and subsequent rings, as described below. 


wat PE 


187 


—— 
aS 


>. 


telephone. 


OO 
Wir 


i 
1 i 
1 ; 
1 ; 
1 ! 
1 ' Formal Parameters: 
1 ; first ring The address of a Gescrigter of a byte flag: 
1 : true First-time ring. 
: false Subsequent ring. 
1 ! Implicit Inputs: 
global data 
! Implicit Outputs: 
global data 
i 
] 
i 
i 
i 
ie 


Returned Value: 
non 


Side Effects: 


SRVERFEVLSSSLESE 


1 = 

; ) 

1 global routine phn$ring_out(first_ring): novalue = begin 
1 bind <2 poe 

1 first_ring_dsc = .first_ring: descriptor, 

; first_ring_flag = .first_ring_dscCptrJj: byte; 

; local 


status: long, 
op: ref pub, ! Points to our PUB. 
tp: ref pub; ! Points to target's PUB. 


! This Little routine is the timer AST. A timer goes off when we need 
! to do subsequent rings of a person's phone. Just queue another ring_out 
! steering message with a flag that says ‘‘subsequent ring’. 


routine timer_ast: novalue = begin 


phn$queuve_smb(smb__ring_out,describe(Zchar(false))); 
return; 
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-PSECT SPLITS,NOWRT,NOEXE ,2 
00 OOC P.AAD: .ASCII <0> : 
BLKB 


SOURS. E18 hm 


1 LONG 
14 “ADDRESS P.AAD : 


esses 


3; Routine Size: 


BASICCMDS - Basic Phone Commands 1$-60-1 138% 9: Qf: 32 anne igse3e V4. O- o35.4 


PHNSRING_OUT = R 


14 bytes, 


0000G CF 


Routine Base: 


g Someones Phone 


»PSECT 
0000 00000 TIMER_AST: 
0000" CF 9F PUSHAB 
a ee 
04 00000 RET 


SCODES + OO7A 


PHONE . SRC basice nbs. 3 


SCODES ,NOWRT ,2 


Save nothing 
P.AAC 


i, PHNSQUEUE _SMB 


Page 


Bete Ge Se te 
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! First we have to ensure that we really are still trying to call someone. 
= .phn$ ubhead(0); 
id (not eee ob vee tag]? or (.opCpub_l_busylink] eqla 0) then 
return; 
! Now we split up depending on whether this is a local or remote ring. 
tp = .opCpub_l|_busylink]; 
begin 
bind target_tsb = tp[pub_b_tsb]: tsb; 
2 if not .target_tsb(tsb_v_remote] then ( 
4 ! We are ringing a local phone. Call a routine to do it, and then 
2 ! check the status. If bad, we break the call and tell the user why. 
4 status = phn$local_jangle(.tp,.first_ring_flag); 
17°. stetus nequ prad of then’ ¢ —_ 
phn$break_caTl(); 
phn$Sinform(.status); 
return; 
4 ; 
4 
2 ) else ( 
4 ! It appears we are ringing a remote node, which we obviously can't 
& ' do ourselves. Send a steering messege to the remote slave, who 
? ! will try to ring the person. It will send us back a status. 
4 local 
2 local _described_buffer(ring_status,4); 
& panSsond_sabi.tp.sap__rang. jn. first ring gsc}: 
4 Status = phn$read_slave(.tplpub_w_channelJ],ring_status, true); 
-Status nequ phn$_ok then ( 
phn$break_call(); 
phn$Sinform(.status); 
2 ): return; 
if . ring status(ptr] nequ phn$_ok then ( 
phn$break_call(); 
ohnSinform(..ring_status(ptr]); 
return; 
6 3 
); 
! Finally, we inform the user that we rang the person's en and we set 
! a timer for 10 seconds. When the timer goes off, we'll ring the guy again. 
hnSinform(phn$_justrang,target_tsb(tsb_q_tkndsc, 
4 phns_j . ° target rsblésb_v. tkncount]3); 
status = Ssetimr(daytim=uplit long(-10*10000000,-1); 
astadr=timer_ast); 
check (.status); 
return; 
end; 
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vOL-000 PHNSRING_OUT = Ring Someones Phone 122868: 1382 93: gf $2 PHONE . SRC RCIBA ASICEM mbS 103951 _ (5) 

3 1 3 

3 $37 eet ¢ end; : 

.PSECT $PLITS,NOWRT ,NOEXE,2 ; 

FFFFFFFF FAOAIFOO 00018 P.AAE: .LONG 100000000, =1 : 3 

.EXTRN SYSSSETIMR ; 

.PSECT $CODES,NOWRT,2 3 

007¢ 000 .ENTRY PHNSRING_OUT, Save R2,R3,R4,R5,R6 : 0538 : 

¢ 000000006 ar D 00 ROVL #PHNS_OK? R6 : ; 

: 04 AC D MOVL bantga RIN + 0541 ; 

50 00006 cf D 1 MOVL PHN$GO PUSKEAD, : 8366 3 

01 00FO C0 3 £0 13 BBs 40(0P), : 056 ; 

00F8 £0 D8 ° iC 1$ TSTL ae : ; 

04 RET 

52 OOF8 co B0 023 2$: MOVL 48(0P), + 0568 ; 

54 0c A? c 0 MOVAB 12( TP) : 0570 F 

15 6 f 02C BBS” (Aa) a8" : 578 : 

7E 04 : 5A 00 F MOV ZBL Boe -(SP) ; 057 3 

—s ig | a. eompaea sme : | 

56 D1 80 D CMP status, R6 : 0578 : 

3, O9é2 pha ; 0579 

6E ba 00 i 38: MOVL RING. STATU : 0591 : 

04 AE 08 Ag E 00047 MOV Hie STATUS*BS SRING. STATUS+4 : : 

Bis Ft feb! 

DD 0005 PUSHL : ; 

00006 CF s FB 338 CALLS i, PHNSSEND_SMB : : 

1 DD 0005 PUSHL > 0594 : 

oft OB Bl Rvs gp, : ! 

00006 CF FB 00061 CALLS 4&3, PHNSREAD. SLAVE : : 

i a a oe ‘ose5| [3 

9 6C BEQL . : ; 

00006 CF FB ¢ 4$: CALLS #0, PHNSBREAK_CALL > 05% : 

3 bb f BUSHL stAtus ; 0597 : 

56 04 if D4 i? 5$: cHPL ~~ STATUS+4, R6 : 0600 3 

00006 CF 5 FB 0007 CALLS PHNSBREAK CALL > 0601 ; 

04 BE DD PUSH aning STATUS+& > 0602 ; 

00006 CF FB 3 6$: CALLS I NPRNS INE ORM = ; 

50 0 A Re 7$: MOVZWL 2¢R 4) RO > 0611 : 

4 A440 7F F PUSHAG 4(R4)C(RO : : 


Ss 


VOe-600°” —--PHNBRING OUT’ = Ring Someones: Phone ie$94s 95:00:35 YMGAD BLUSE UO seat 


000000006 8F DD PUSH reenbai al ys TRANG ; 

00006 CF FB CALL INS INFORM : 
CLAL + 0613 

FF GE CF 9F OOOA PUSHAB tine AST ; 

0006" CF 9F OOOA PUSHAB P.AAE~ : 

D4 000A8 LRL (SP) : 

000000006 99 4 F AA CALLS #4, SYSSSETIMR : 

D B1 VL RO, STAT ; 
E B4 STATUS, 8$ + 0614 

DD 00087 PUSHL STATUS : 

000000006 00 1 FB 0089 CALLS #1, LIBSSIGNAL F 
04 000C0 8$: RET + 0618 


; Routine Size: 193 bytes, Routine Base: $CODES + 0088 
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¥02 +000 PHNSLOCAL_JANGLE = Produce Actual Phone Ring 1 730071382 95:00:52 PHONE. SRCHBASTCCMDS 63951 ? (6) 
: 39 $18 } Bsbttl "PHNSLOCAL_JANGLE = Produce Actual Phone Ring’ : 
; 298 621 1 ! Functional Description: . 
3; 299 6 § 1: This routine is called to actually ring the phone of a local person. : 
; 300 8e 17 This includes both broadcasting a ring and sending a ring message to ; 
; B3 8 ¢ | the person's mailbox. ; 
a8 be 5 ateaa ken aps hat Add f the PUB d ibing th b 
3 ! arget_pu ress o e escribin e person to be rung. : 
; 305 06 » 34 first. Fing. flag A flag to say if this ‘s the first ring: ; 
; “4 be 4 ! true pireseting ring. : 
; : alse ubsequent ring. ; 
: 508 0631 1 | “ . 
; 309 06 § 1 ! Implicit Inputs: 
3 319 06 1! global data 
3; 6ST) 0634 1! 
; $1§ 0635 1 ! Implicit Outputs: 
; 63} 0636 1! global data 
> 314 0637 1! 
3 6319 0638 1 ! Returned Value: 
; 316 0639 1! pred. ropgeeet? The person has Logged off the system. 
: aif 0640 1! phn$_cantreach The person can't be reached for some reason. 
: 18 0641 1! ee ergeete None of the person's terminals are usable by PHONE. 
: 238 Ree ! phn$_unplugged The person has /NOBROADCAST set on all terminals. 
: 3! 0644 1! Side Effects: 
; ; ¢ 0645 1! 
3 ole 0646 1 !-- 
: $e 0647 1 
2 dee 0648 1 
3 $58 ¥¢: 2 global routine phn$local_jangle(target_pub, first_ring_flag) = begin 
iS serie Bee 8° Ge carey: po 
; = ,target_pub: pub, 
3 $30 ee target. tsb = RePub b_tsb]: tsb, 
; ae beee 2 target_name = target_tsb(tsb_q_tkndsc,.target_tsb(tsb_w_tkncount]]: descriptor; 
3 33 0656 own 
; $e 0657 process_pid: Long 
3 5 0658 own_described_bu fer(user_name,12), 
; $39 0659 parént_pid: long 
s tar 0660 own_deScribed_buffer(term_number,7) 
; $35 bees ae own-described_buffer( image_name,nam$c_maxrss); 
3 n 
; 340 Oses get_proc = unl ie Cyoress) wordt jel pid). 
; 1 664 Long(process_pid 
3 ¢ 0665 ong ) 
3 4) word( 25 .word( jpi$_usernane), 
2 344 66 Long(user_name+8), 
s 345 8 Longs yser nae ) 
3 ri] 9 word(4) ,word( pi$_owner), 
: 0 lLong(parent_pid), 
; 8 671 Long¢ ), 
; 9 ors word(7) ,word(jpi$_terminal), 
; 39 7 Long(term_number+8) , 
: 1 74 pone) cera muaeer). 
: 352 675 long(0)), 


13 
BASICCMDS BASICCMDS = Basic Phone Commands 1b-5e -1984 02:07: AX-11 Bliss-32 V4.0-74 Page 12 
FO. 000 PHNSLOCAL_JANGLE = Produce Actual Phone Ring 127808-1 3b 95:00:82 PHONE SRCIBASTCEMDS. 645.1 . (6) 
' we 67 get_image = UPL TE poral anes nexreg? words ipis_taegnens?, 
3 ee 67 Long(image_name+8), 
3 5 of8 Long(image_name), 
; 28 067 Long(0)); 
; 3 0680 
; 358 86 1 Local 
s SoP 6 § status: long, 
; 360 86 wild_pid: long, 
3 63 $e : potential: long, usable: long, jangled: long, active: long; 
: 36 068 
; 364 O68? ! We are doing a single local phone ring. This requires us to find all 
; 9? bees ! the processes for the target user and ring each one that we can. 
; 367 0690 potential = usable = jangled = active = 0; 
; 368 0691 wild_pid = -1; 
; 369 069 Loop (¢ 
; 3/9 069 
; 71 0694 ! Get the information on the next process. If there aren't any 
3 37§ 0695 ! more, then we are done. 
: ie p bee? tatus = Sgetjpi(efn=phn$k_getjpief 
3 status = $ge efn=phn e efn, 
3 38 P 0698 sitions o egrentta sta 
3 3576 0699 itmlst=get_proc); 
s srr 0700 
5 re $783 exitif (.status eqlu ss$_nomoreproc); 
; 380 0703 ! If we got a process, then determine if it is a detached 
; $e) Boe ; ! interactive process owned by the target. 
5 38 0706 4 if .status eqlu ss$_normal then ( 
; 384 0707 4 status = $Swaitfr(efn=phn$k_getjpiefn); 
; 383 B78 ? check (.status); 
3; oer 0710 4 if ch$eql(.target_nameClen],.target_name(ptr], .user_nameClen],.user_name(ptr]," ') and 
: 388 0711 4 -parent_pid eqlu 0 
3 $00 brig : -term_number[len] nequ 0 then ( 
; 391 0714 5 ! We got a@ potential candidate. Make sure that 
: 4 0715 5 ! their terminal is usable by PHONE. 
; #39 0716 5 
3 394 0717 5 inc (potential); a 
3; 395 0718 6 if phn$term_characteristic(term_number,tt$m_scope) then ( 
: 38 14h 6 inc (usable); 
; 39 r60 6 
; 398 0721 6 ! An interesting process. If they aren't 
; 399 fi ; 6 ! running PHONE, try to broadcast a ring 
; 400 7 6 ' message to them. If they are, just remember 
: ret oF : ? ! that fact. 
; 40 P 0726 6 status = Sgetjpi(efn=phn$k_getjpiefn, 
3 404 P 07 $ 6 setip rm me ed ge bg 
: 405 7 8 8 itmlst=get_image); 
: £06 7 if .status eqlu ss$_normal Then ( ; 
; 40 730 7 status = Swaitfr(efn=phn$k_getjpiefn); 
; 408 4 1 £ check (.status); 
3; 409 732 7 if ch$find_sub(: image_namellen],.image_name(ptri, 
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); 


if patent tet eqlu_0 then 
return phn$ Loggedoft; 

if .usable eqlu 0 then 
return phns.. targtern; 

if .jangled + ,active eqlu 0 then 
return phn$_unplugged; 


SSNS 
WE EPP PEE EE 


=[OOONAOUE WN OC OONOV EW —O 


no matter what they're doing, 


meme meme 


E, so they'll get another buzz. 


if .first_ring_flag or .active nequ 0 then ( 


running PH 


SAN NNN 
SN NAA A AAA AAA ASM 


NM—OOONOUS wry 


local 
first_ring_dsc: descriptor; 


first_ring_dsc aon = 
first_ring_dsc(ptr] = tirst + 
phn$send_smb(tp,smb__ 


4 

); 

); 

! Now we just return if there was some trouble. 
! returned depending on the exact problem. 

3 

; return phn$_ok; 

1 
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end; 


if 


inc 


32 93:95:58 — EBMONE. Srcdeas 
ruleset 
(Jangl ea): 


(active); 


Various statuses are 


HONE will get our cing. Also, 
each ym ey ty | we want to send a message if they are now 
ey 


OK. Now we may need to send a rang_in message to the target's 
receive mailbox. This is otengs done ifr the first 


Mtg 7 that 
on 


rang_in te dsc); 


-PSECT $PLIT$,NOWRT,NOEXE,2 


WORD 


~WORD 793 
-ADDRESS PROCESS_PID 
ONG 0 


«WORD 
- WORD 


514 
-ADDRES 
oo 


S USER_NAME+8 
70 USER_NAME 


SWORD 771 
“ADDRESS PARENT_PID 
“LONG 0 


2 V4.0-74 P 

tots, 03951 aos 
)) eqla 0 then ( 
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45 58 45 2€ 45 4E 4F 


0000000C 
00000000' 


00000007 
00000000" 


000000F F 
00000000" 


58 
5A 
5E 
51 04 ac 
5 
55 
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AX=-11 BL 
PHONE .SR 


1 
1 
44 
46 97 
4 “ADDRESS TERM_NUMBER+8 
4c “ADDRESS _TERM~NUMBER 
“LONG 
4 P.AAG: <WORD 255 
6 19 
3 it 
0066 
064 


fo deo-1986 09:00:25 


AGE _NAME +8 
‘ AGE _NAME 
«LONG 0 
ASCII \PHONE.EXE\ 
«-PSECT SOWNS,NOEXE,2 
00000 PROCESS_PID: 

-BLKB 4 
00004 USER _NAME : 12 
00008 - ADDRESS Boer. NAME +8 
0000C 
00018 PARENT Pipe 
0001C TERM NUMBER: 


608 ? -ADDRESS_TERM_NUMBER+8 
-BLK a 


P.AAH: 


SS = 


0038 -BLK 
000 C IMAGE NAME 3 


00030 teats viiace. NAME +8 
00034 «BLK 


GET_PROC= 
GET_IMAGE= 


P.AAF 


RcSBASI CURD 


P.AAG 
-EXTRN SYSSGETJPI, SYSSWAITFR 


-PSECT SCODE$,NOWRT,2 
00000 ENTRY 
9002 MOVAB SySsce Tse ‘aI, 
00 MOV erp NUMBER, 
O00E SUBL2  # 
6 ADDL i, TAR wed R1 
16 MOVZWL é 
1A MOVA (r1)(ROJ, RS 
1F CLRL  JANGLED 
1 CLRO IVE 
CLRL TENT 
MNEGL #1, WILD PID 
1$ CLRQ. 0 = ( §p) 
A CLRL = = (SP) 
PUSHAB GET PROC 
CLRL = = (SP) 
PUSHAB WILD_PID 
PUSHL # 
CALLS 4&7, SYSSGETJPI 


-0- 
S. 


74 
83 


B.1 


PONS, OCAL uf gate. Save R2,R3,R4,R5,R6,R7,- 
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y0.-600 PHN COCAL jm = Perse een Phone Ring 18: ep. 1984 93: 93 $2 PHONE. SRCIE ri 
A 


6 0 »D MOVL STATU ; 
00000948 HF 3 i 3p cMPL STATUS, U3 472 : 
OOA 4 BRW $ : 
01 5 D 49 2$: CMPL STATUS, " : 
DA 4C BNE £ : 
1 DD 0004 PUSHL #1 : 
ALLS #1, SYSSWAITFR ; 
000000006 00 j F CALLS “i siss A TF 
38 6 £ A BLBS = STATUS, % ; 
000000006 0 FPO Bb bee CR re a CIBSSIGNAL ; 
EB AA 20 04 9 ma 63 20 8 66 3$ CMPCS = (R5), @4(R5), #32, USER_NAME, @USER_NAME+4 ; 
87 1 8 rf BNEQ 1$ : 
FC AA OD 0 1 TSTL | PARENT_PID ; 
B2 1 74 BNEQ : 
6A e 0076 TSTW  TERM_NUMBER : 
ar 007 BEQL ; 
06 O7A INCL POTENTIAL : 
7E 1000 BF 3¢ 0007¢ MOVZWL #4096, -(SP) : 
A dD 00081 PUSHL R10 ; 
00006 CF Q FB 00 CALLS ae PHNSTERM_CHARACTERISTIC ; 
9D E9 00088 4$ BLBC =_«aRO,_-*1 ; 
5 B6 0088 INCL USABLE F 
7E 7C 0080 CLRO 30s =( SP F 
7E D4 00 F CLRL = =(SP) ; 
0000' cr F 0009) PUSHAB GET_IMAGE : 
E46 AA oF 90097 PUSHAB PROCESS_PID : 
01 DD 0009A PUSHL : 
68 07 FB 9009¢ CALLS #7, SYSSGETUPI : 
56 0 DO 0009F MOVL RO. STATUS : 
01 56 01 000A CMPL = STATUS, #1 : 
1 12 OOOA BNEO ~=s:«sW$ : 
1 DD OOOA PUSHL #1 : 
000000006 90 i i QOA9 CALLS a. ayer ; 
09 6 €8 0008 BLBS STATUS, : 
56 DD 000 PUSHL STATUS : 
000000006 00 01 FB 000 CALLS #1, LIBSSIGNAL : 
16 BA 10 0000° CF 3 ; OBF 5$: RATCHC Ae P.AAH, IMAGE_NAME, @1MAGE_NAME+4 ; 
53 9D CA MOVL #9, RS : 
9 f CD 6$: SUBL2 #9, R : 
2 BNEQ 7$ 3 
5A DD 0000 PUSHL R10 : 
00006 CF DD PUSHL  PHN$GQ_PUBHEAD ; 
0000v cf FB 08 CALLS #3. PR PHASOANGLE _STRING ; 
Dg £ INCL ANGLED ; 
§ E BRB 3 
06 £4 7$: INCL ACTIVE ; 
FF SE EG BS: BRW : 
9 p £9 9$: TSTL POTENTIAL : 
8 EB BNEQ ; 
50 000000006 BF D ED MOVL § #PHNS_LOGGEDOFF, RO : 
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0 F4 RET ; 
BFE Ray vos By ypu j ev 
50 000000006 &F pO OF MOVL #PHNS_TARGTERM, RO ; 0750 
54 57 i 1 118 ADDL2 ACTIVE, R4 : 0751 
50 000000006 8F 06 MOVL #PHNS_UNPLUGGED, RO + 0752 
04 08 AC E8 001 E 12$ BLBS § FIRST_RING_FLAG, 13$ + 0760 
a Regt dee AEE : 
04 AE 0 : 116 13$ MOVW #1, FIRST_RING_DSC : 0765 
08 AE 08 AC 9E OO11A MOVAB FIRST_RING_ rage FIRST_RING_DSC+4 + 076 
4 Ae oF ott PUSHAB FIRST RING-DSC : 076 
04 g DD i é PuSHt oeacET PUB : 
— £h 000000006 a3 60 a t 14$ nour’ Ae Ne ORS NO” tes 0770 
04 001 : T : 0772 


3; Routine Size: 308 bytes, Routine Base: S$CODE$S + 0149 
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; $ 1 q ; } Rsbttl "PHNSRANG_IN = Handle a Ring on Our Phone’ ; 
: 4 5 775 1 1 Functional Description: ; 
> 454 7 § 1} This steering message routine handles the rang_in steering message, . 
; 455 777 (13 which someone sends us when they want to ring Our phone. We have ; 
; 4 $ £78 1! to make sure our phone is not busy, and then we can display a 3 
; ? ‘ 44 ! nice message to the user. : 
: 459 781 1 | Formal Parameters: ; 
; 460 7 § 1; message The gonphete node/user name spec of the person : 
; 461 785 1! calling us. Ends with an eofrom character. : 
3 188 784 1! This is followed by a flag which is set if this 3 
; ret f 5 : is the first ring, clear otherwise. : 
: 465 07 oy i Implicit Inputs: F 
: 188 $454 1 global data : 
: 468 0790 1 | Implicit Outputs: ; 
: rs 149 : H global data ; 
; 471 Ores | Returned Value: 2 
: 47 ores 1 i ‘ 
; rh Bras : } Side Effects: 

: 476 0798 1 i-- 

: 477 0799 1 

; 478 0800 1 

; rth B80) global routine phn$rang_in(message): novalue = begin 

: 481 0808 5 bind 

: re bape message_dsc = .message: descriptor; 

: 484 08 local 

; 485 0809 status: Long 

; 486 0808 first_ring_ lag: byte, 

3; 487 0809 caller_tsb: tsb, ' TSB to parse caller's spec. 

3; 488 0810 op: ref pub, ! Pointer to our PUB. 

: rt 34 Bats tp: ref pub; ! Pointer to caller's PUB. 

: 491 0818 

; 49 0814 ! We begin by spotasing the caller's spec and making a TSB to parse it. 

; ret O81 ! We also isolate the first-ring flag. 

: 495 B19 first_ring_flag = shirchort.nocnpee Mech ote + .messoge cect len)=1); 

: £36 a8 message_dscllen] = .message_dscllen] = 2; 

; 49 1 status = phn$Smake_tsb(message_dsc,caller_tsb); 

: +38 1 ’ check (.status); 

; 500 8 g ! Now we see if we are calling ourselves. In this case we just answer the 

; 501 : ! phone immediately. There are two reasons for this action. First, we can't 

3; 20 4 : require the user to enter an ANSWER command, because the act of typing the 

; 3 5 ! "a" will cancel the original call. Second, why the hell would people call 

: 504 § i themselves if they didn’t want to answer the phone? That's Like arguing 

: 05 ! with yourself and losing the argument! 

: 0 § op = .phn$gq_pubhead(0); 
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0. i if phnScag. tereee cghterets tsb zppCpub. b_tsb]) then ( 
firs sf in 
G = ub-v wanswering] = true; 
4 nSanSwer_cmd(); 
1 ); 
1 5 return; 
14 6 3 


Sete Ge Ge Ge Ge ee 
—_ 
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1 7 ! ot fey else is calling us. This is rather complicated, because there are 
1 ! really 9 distinct cases. The first case is when we're calling someone else 
1 ! and our phone is busy. The other 8 cases are all combinations of the 
1 4 ; vp. lowing qonjoen variables: whether we are currently answering the phone, 
4 ! whether this is a first-time ring, and whether this caller is the same as 
; 4 ! the person who rang us last time. 
44 if .opCpub_v_calling] or 
2 45 ecg pos Re and .first_ring_flag) then ( 
§ rk ! Either we're placing a call now, or we're already answering the 
8 ! phone and someone : se sends us a first-time ring. In this case we 
! make a temporary Link to the caller and te em we're busy. 
3 Sep ! mak t Link h at d tell th b 
2) status = phnSestab_link(message_dsc,tp); 
1 ¢ check (.status); 
¢ 5 status = phn$Sbreak_link(.tp,smb__busy); 
54 check (.status); 
55 return; 
5 S29 ; 
328 if not .opCpub_v_answering] and .first_ring_flag then ( 
539 0 ! We're not answering and it's a first-time ring. We have a new 
540 1 ! caller, so establish a Link to them. Set up our PUB so we'll 
! know who's calling. splay a ring message to the user. 
41 ik ho's calli Displ i h 
4 86 


status = phn$Sestab_link(message_dsc,tp); 


Se 


Be Se Se Ge Ge Se Se Se Se Fe Ge Ge Fe Se Se Ge Ge Fe Fe Se Ge Ge Se Ge Se Oe Se Se SH Se Fe Se Se Ge Se Se Se Ss Se Se Se SH Ss Se Se Se Ss Se Se Ss Se Ge 


0 

3 0 
eee check (.status); 

45 866 optpub_¥_answer ing] = true; 
546 86 op ub_l_busylink] = .tp; 
eer 868 phn$jangle_string(.tp); 

48 869 return; 
549 379 ); 
550 71 
551 4 if (tp = zopCpub.| busy ink}) neqa 0 then 
226 87 if .op ph .u enouer ing. and not _.first ring. flag and 

22 are phn$cmp_target(caller_tsb,tpCpub_b_fsbJ then ( 
336 0. v6 ! We're on it's a subsequent ring, and it’s from the 
228 g ! same person. Again display a ring message to the user. 
58 § phn$jangle_string(.tp); 

59 0 return; 

st 1 ); 

$¢ BBS ! What the hell?!??! Can't imagine what's going on at this point, so 
°7 : ! just ignore the message. 

65 return; 

6 8 end; 


BASiccnos BASICCMDS = Basic Phone Commands 16- a. se 1384 9: Qf: $3 AX-11 Ol igsez¢ v4.0 Page (BS 


PHNSRANG_IN = Handle a Ring on Our Phone -Sep-1 PHONE .SRCJBASICCMDS. “63 31 
OOFC ENTRY PHNSRANG IN, Save R2,R3,R4,R5,R6,R7 : 0801 : 
7 000000096 00 3 MOVAB Ug SIGNAL a : : 
FFI CE VAB (SP), fr : ; 
04 =A 2 ov MESSAGE R : 0804 ; 
6 MOVZWL } rb + 0817 : 
06 =A § 1 ADDL2 4(R35, RO : : 
$ FFA 1 MOVE 3 R05 FIRST_RING_FLAG : ; 
é 02 A 1 SUBW2 #2, (RS) ; 0818 : 
04 AE OF PUSHAB CALLER. TSB + 0819 
DD PUSHL : 
00006 CF F CALLS , PHNSMAKE_TSB : 
3 D A MOVL 4 STAT : ; 
E LBS STATUS, + 0820 
; DD PUSHL STATUS ; 
6? 1 FB CALLS #1, LIBSSIGNA : 
2 00006 CF p 1$: VL —- PHNS$GQ SPUBHEAD, op + 0829 
OC A2 9F OOO3A PUSHAB 12 COP : 0830 
08 AE 9F 00030 PUSHAB CALLE ; 
00006 CF Q FB 040 CALLS ‘ BHASCRP. TARGET ; 
OF E9 0004 BLBC R ; 
1 56 £8 00048 BLBS § FIRST_RING_FLAG, 2$ + 0831 
4 00048 RET ; 
OOFO 2 10 88 0004C 2$: BISB2 #16, 240(OP > 083 
0000v CF 00 FB 0051 CALLS #0, * PHNSANSWER. CMD : 0833 
54 00FO c2 oe $087 3$ MOVAB 240(0P) + 0844 
07 64 03 €£ 005¢ BBS #3, iris" : 
1 64 04 E1 906 BBC ai. i + 0845 
2A 6 E9 00064 BLBC FIRST RING_FLAG, 6$ F 
4008 8F 6B 00067 4s: PUSHR #*M<R3,SP>~ + 0851 
00006 CF FB 0006 CALLS Bt “PHNBESTAB _LINK ; 
55 DO 0007 MOVL TUS : 
05 E8 0007 LBS os) 5 : 0852 
55 (OD 90076 PUSHL st ; 
67 01 FB 0007 CALLS #1, LIBSSIGNAL : 
A DD 00078 5S: PUSHL #16 : 0853 
04 AE DD 0007D PUSHL ; 
00006 cr Q i 99 CALLS mp PHNSBREAK _LINK : 
iF 55 £8 000 BLBS BTATOS. "Rs > 0854 
55 «DD 000 PUSHL STATUS ; 
67 01 Fe CALLS #1, LIBSSIGNAL Feast 
21 4 94 EQ 3 $$: BBS R4), 9$ : 0858 
E 6 € $: BLBC Fitsts RING_FLAG, 9$ : 
4008 8F 6B 0009 PUSHR #M<R3,SP>~ > 0864 
00006 i H CALLS #2, Pi PHN NSESTAB_ LINK ; 
5 id AG BLBS erATO Ss” ane > 0865 
DD 000A7 PUSHL STATUS ; 
67 a, A9 CALLS #1, LIBSSIGNAL : 
64 0 8 AC 8$: BISB2 #16, (R4) : 0866 
00F8 C2 6e p MOVL TP, 248(0P) ; dees 
aE 00F8 (2 D B6 9$: MOVL 388c0P>, TP ; $95 
dD 1 BB BEQL 1$ : 
19 64 04 € BD BBC #4, (R4), 118 : 0873 
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¥02-000 PHNSRANG_IN = Handle a ring on Our Phone 1 308-18 95:00:82 PHONE. SRCIBASICCM o7533.1 
16 6 € C1 BLBS RST_RING_FLAG, 11$ 
7E 6& ¢ ft C4 ADDL3 abe TP, =TSP) 
08 AE SF 000C8 PUSHAB CALLER _fSB 
00006 fF g Fe C CALLS *5° 4 PHRSCRP_ TARGET 
7 E Dd BLBC 
gf DD D3 10$: PUSHL T 
0000v CF FB 0D CALLS #1, PHNSJANGLE_STRING 
04 OOODA 11$: RET 
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Rsbttl *PHNSJANGLE_STRING = Build and Display Ring Message’ 


! Functional Description: 
This routine is called to build and display a ring message. 
There are two cases: 

1. We are calling someone else and they are not 
currently using the PHONE faci ue In this case 
we have to broadcast the messege oO them. 

a. Someone is calling us. In this case we have to 
display the message on our message Line. 


Formal Parameters: 
caller_pub The address of the PUB of the person who is placing 
$he call. In case 1, it is our PUB. In case 2, 
t's the PUB of the person getting us. 
terminal This argument is qnly supplied in case 1, and is the 
terminal number of the person we are calling. 


Implicit Inputs: 
“ global data 


Implicit Outputs: 
global data 


Returned Value: 
A boolean, true if we could do it, false if not. 


Side Effects: 


global routine phn$jangle_string(caller_pub,terminal) = begin 


bind 
cp = .caller_pub: pe. 
caller_tsb = cp[pub_b_tsb]: tsb 
terminal_dsc = .terminal: descriptor; 


local 
status: long, 
brkiosb : vector(4,word], 
on_node_length: long; 
builtin 


nul lparameter; 


! We begin by determining if we are on a VAX running DECnet. If so, we will 
! include the word ‘‘on’’ and the target's node in the ring message. 
on_node_length = (if .phn$gq_node_name[len] eqlu 0 then 0 else .phn$gq_node_name[len] + 3); 


! Now we determine if we are to preadcest the ring message. If so, we get 
; une mossege, Seut, $fao the various pieces into it, and broadcast it to 
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; é if not mys tpprensterta? then ( : 
; ? local described_buffer(msg_buf,79); : 
; ? ! Get the ring message template. ; 
; % ° 
3 6 P 0S status = $getms tas id=phn$_rin 3 
3 ? § . 0S ° ° : msg lensnsg_ buttons. . 
3 Ss u r=m ° 
; 635 05 ¢ Teer nak S; ; 
; 6 DS check (.status); : 
3 g 09 ! Build the ring message. 3 
3 6 095 § 
; 640 0960 4 begin 3 
; 641 0961 4 local 3 
: org 588 2 local_described_buffer(fao_buf,79); : 
3 oh P 0964 4 status = Staoinsg. put : 
> 645 P0965 4 uf{lend, : 
3 ose e 3908 4 a 3 
: 64 P 0967 4 iene =tabEsb q_tkndsc,.caller_tsb{tsb_w_tkncountJ-1], 3 
: 648 P 2e8 4 ca ler. tsb(tsb_ Ra “tkndsc,.caller— tsb(tsb_w_tkncountJ], 3 
; 649 P a8 4 -on_node_Length : 
; 650 P0970 4 - gq_node _name, : 
3 oe) 971 4 3 
3; 6 ; 36 4 check (.status); 3 
; 65 o37 4 3 
3 $28 are 2 ! Broadcast the ring message to the person's terminal. : 
3 686 P 0376 4 status = Sbrkthruw(msgbuf=fao_buf, 3 
; 65 P 0977 4 sendto=terminal dsc, 3 
3; 658 P ue 4 sndtyp=brk$c_device, é 
; 659 P 0979 4 reqid=brk$c phone, : 
; 660 P 09 4 carcon=%C' F 
3; 661 P 0981 4 et os Be 3 
3 $66 ¢ 4 timout=10); 3 
; 66 85 4 if .status 3 
3 664 Bae 4 then status = .brkiosb([0]; 3 
3; 665 985 4&4 return .status; 3 
; 666 oes 3 end; 3 
3; 667 8 3 : 
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v04-000 PHNSJANGLE_STRING = Build and Display Ring Mess 1 =300n 138% 95:00:82 PHONE. SRCIBASICCMDS .B3 31 ’ 18) vOé 
; 669 9 ! Well, it appears that we have case 2, and we want to display a rin : | 
; 670 0389 ! message to the user. . . ; | 
: 671 990 3] 
; 67 0991 phn$inform(phn$_ring ; | 
3 OF 8338 caller_tsb tsb_q_tkndsc,.caller_tsb FOpM. SRnCOUNE dat Z : | 
; 674 99 caller-tsbltsb-q_tkndsc, .caller_tsbltsb_w-tkncountlJ, : | 
; 675 0994 -on_node_Llength, 3] 
: 676 0995 hn$gq_node_name, : 1 
s 677 b443 ; eB | 
; 678 099 return phn$_ok; 3] 
; 679 0998 . 3 | 
; 680 0999 1 end; : 

s 

sj 


~-EXTRN SYSS$GETMSG, SYSSFAO 
~EXTRN SYSSBRKTHRUW 


OOFC 00000 eENTRY PHNSJANGLE_STRING, Save R2,R3,R4,R5,R6,R7 ; 0921 
57 00006 CF 9E 9000¢ MOVAB PHNSGQ_NODE_NAME, R7 : 
28 ooo0N00g BF Bb 000¢ ech ne Sh re aS 
5E FF48 CE 9E 0001 MOV -1 P), SP : 
53 04 AC O¢ cI 0001A ADDL #12, CALLER_PUB, R3 > 0925 
52 67 3C OOO1F MOVZWL PHNSGQ_NODE-NAME, R2 + 0940 
04 12 900¢2 BNEQ ~=s«-:'1$ : 
32 pA 90034 CURL ON_NODE_LENGTH F 
52 03 CO 00028 1$: ADDL2 #3, ON_NODE_LENGTH : 
02 6C $1 00028 2$: CMPB. ss (AP), =B2 + 0946 
03 1€ O00¢E BGEQU : 
008D 31 00030 3$: BRW 8$ : 
wen. ih) Goes ae) Se we 
58 AE 4F 6 BF OA 00038 MOVZBL #79, MSG_BUF > 0948 
SC OA 60 AE 9E 90030 MOVAB  MSG.BUF+8, MSG_BUF+4 F 
" 60 RE OF popes PUSHAR RSG_BUF veer 
oe aS ee : 
000000006 00 03 FB 0004D CALLS #5, SYSSGETMSG : 
54 0 pO 00054 MOVL STATU : 
05 54 €8 00057 BLBS STATUS, 5$ : 0956 
54 DD Q0>A PUSHL STATU : 
66 or FB C CALLS #1, LIBSSIGNAL : 
6E GF BF OA O05 5$ MOVZBL #79, FAO_BU > 0962 
04 AE 08 AE 9E 0006 MOV FAO. BUF+8, FAO_BUF +4 : 
7E D4 00 CLRL = = (SP : 0971 
0084 8F B 6A PUSHR #*M<R2,R7> 3 
5 02 AS 3C¢ 06 MOVZWL 2¢R3) R : 
4 a3 F 0 PUSHAG 4(R £R0 : 
FC A340 7F 0007 PUSHAQ -4(R3) CROJ : 
14 AE i O7A HAB _BUF : 
18 AE 9F 00070 PUSHAB FAO~BUF : 
000000006 90 * OB re O83 CALLS. AB. -SVs8¢40 
9? g fi 8 Bi MOVL RO; STATUS : 
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05 4 £8 BLBS STATUS, 6$ : 
4 DD PUSHL STATUS ; 
66 1 FB CALLS #1, LIBSSIGNAL : 
E 7C 00095 6$: CLRO 7 (3P) : 
OA DD 0 9 PUSHL #1 : 
oI pp 99 PUSHL Hi : 
7E 0 7D 0009B MOVQ #32, <(SP) : 
FB AD 9F O009E PUSHAB BRKI ; 
01 DD O00Al PUSHL #1 : 
08 AC DD 000A3 PUSHL TERMINAL : 
4 AE 9F 000A6 PUSHAB FAO_BUF ; 
7E D4 OO0A9 CLRL = ; 
000000006 00 06 FB OOOA CALLS #11, SYSS$BRKTHRUW : 
54 0 DO 0008 MOV RO, STATUS : 
04 54 E 008 BLBC STATUS, 7$ : 
54 F8 AD 3C 00088 MOVZWL BRKIOSB, STATUS : 
50 54 DO OO0BC 7S: MOVL STATUS, RO ; 
04 OO00BF RET ; 
7E D4 000CO 8s: CLR -(SP) : 
0084 8F BB 000C2 PUSHR  #4M<R2,R7> : 
50 02 A’ 3C 000C6 MOVZWL 2(R3), RO ; 
04 A340 F OOOCA PUSHAG 4(R3)(ROJ : 
FC A340 7F bce PUSHAQ -4(R3)CROJ : 
55 DD 0000 PUSHL R : 
00006 CF 06 FB 00004 CALLS #6, PHNSINFORM : 
50 000000006 8F DO 00009 MOVL § #PHNS_OK, RO : 
04 000E0 RET ; 


; Routine Size: 225 bytes, Routine Base: S$CODE$ + 0358 
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FO. 000 PHNSANSWER_CAD = Answer the Phone 127808713 4 95:00:82 PHONE. SROIBASTCYMDS. B35; 1 Page 448 vO 
: 66 } 89 } Bsbttl "PHNSANSWER_CMD = Answer the Phone‘ 
: 684 190¢ i i Functional Description: 
; 685 1005 1! This routine handles the ANSWER command, used to answer a call 
; 686 1004 1! on our phone. We have to check for various illegal situations, 
; 687 1005 1! and then we can make the PUB of the caller permanent, and set up 
; ons 1808 : a viewport. 
; 630 1008 Formal Parameters: 
° . n 
; 69 1010 1! 
; 69 191} 1! Implicit Inputs: 
BS 2:8 | Oke alee 
: 69 1014 1 1 Implicit Outputs: 
: oof 131? ; global data 
: 43 if : ; Returned Value: 
; ! non 
701 1019 1 i — 
: R 1930 : Side Effects: 3 
: 704 1088 1 i-- 
s 705 10 1 
; 706 1024 1 
: tA 19¢? global routine phn$answer_cmd: novalue = begin 
: 709 1027 local 
; 70 1028 status: long, 
s ti 1985 op: ref pub, ' Pointer to our PUB. 
: re 1930 cp: ref pub; ! Pointer to caller's PUB. 
: 714 103¢ 
.- Fa. 103 ! If the answer ne flag in our PUB is not set, then the user has entered 
. rig Wee !' a spurious ANSWER command. 
: 718 1036 2 op = .phn$gq_pubhead(0); 
3; 719 1037 if not - py v_answering] or (.opCpub_l_busylink] eqla 0) then ( 
: reo ies phnsinfora(phn3_nocal l); 
; 12 1040 2); ; 
s fe 1041 
; 724 Ho ! Yes, we can answer the phone. Clear the answering flag and the busylink 
: g i irk ! in our PUB, since we will now have answered. 
: 727 1045 ¢@ op{pub_v_answering] = false; 
: 728 1008 cp = Opt pub_| bugy Link ; 
: 189 : H opCpub_l_busylink] = 0; 
: 731 1049 ! Now we have to see if we are about to establish a redundant conversation, 
: 736 1920 ! that is, a conversation with someone we are already talking to. The 
: a ' 2) ! caller should have prevented this, but let's hear it for robustness! 
: 735 1 2g if phn$redundant(.cp) then ( 
Te ¢ 1054 prnsoreak | ink’ .¢p.smb__busy); 
ee: 1055 phn$Sinform(phn$_ivredunans) ; 
; 738 1056 return; 
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902-000 PHNSANSWER_CMD = Answer the Phone 12286871388 95:00:52 PHONE. SRCIBASICCMOS .B3 37 ss 95 
; 739 1057 ); 3 
; 740 1 8 3 
3; 741 1 ! OK, now we can send an answered message to the caller so they'll know ° 
; re ! re ! that we have answered their call. : 
8 me ie phn$send_smb(.cp,smb__answered) ; ; 
; os 1064 ! Now we see if the call we are answering is from ourselves. If so : 
; 74 1902 i we're done. The PUB will be made permanent by PHNSANSWERED when it : 
: 83 1398 ! receives our answered message. But we must re-establish the busylink. : 
: 750 1068 if phn$cmp_iarget(cpCpub_b_tsb],opCpub_b_tsb]) then ( : 
: fa 1989 . opCpu aeeisitrt hae cel _ : 
3 P2¢ 1070 return; 3 
: fe 1071 ); 3 
3; 754 1976 : 
s 29 107 ! We are answering a call from someone eise. In order to be able to ; 
; P38 Ire ! talk, we have to make their PUB permanent and assign them a viewport. ; 
; 758 1076 cpCpub_v_tem qreryd = false; : 
3; 759 1077 status = phn$fresh_screen(false); : 
; 760 1078 -Status nequ phn$_ok then $ 
: 761 1079 phn$break_Link(.cp,smb__busy); 3 
3 r6¢ 1080 phnSinform(.status); $ 
; 76 1081 2); 3 
3; 764 1OR6 § return; ; 
: 765 108 3 
: 766 1084 1 end; ; 
001C 00000 ENTRY PHNSANSWER_CMD, Save R2,R3,R4 3 1093 ‘ 
52 0000G CF »b0 B2006 MOVL PHNS$SGQ_PUBREAD, OP : 1036 3 
06 00FO C2 04 £1 9000 BBC #4, 26 , 18 : 1037 ; 
00F8 ce D5 0000D TSTL g48 (OP) ; ; 
08 12 00011 BNEQ $ 3 3 
000000006 8F DD 00013 1$ PUSHL #PHN$_NOCALL : 1038 3 
68 11 Be? BRB 5$ 3 $ 
OOFO C2 10 8A 0001B 2$ BICB2 #16, 240(0P) : 1045 3 
54 OOF8 C¢ 43 00 OVAB 248(0P), R4 : 1046 F 
53 64 DO 000 MOVL (R4), CP : ; 
9 D4 8 CLRL (R4) : 1047 3 
3 DD A PUSHL (CP ; 1053 3 
0000G CF 4 4 C CALLS #1, PHNSREDUNDANT 3 : 
11 0 € 1 LBC RO, 3$ 3 3 
OA DD 99 PUSHL #10 > 1054 ; 
3 OD PUSHL CP a ; : 
0000G CF 2 FB 000 CALLS #2, PHNSBREAK_LINK 3 : 
000000006 8F 08 PUSHL #PHNS$_IVREDUNANS ; 1055 : 
* a 4 RB 5$ 3 : 
DD 45 38: PUSHL #11 ; 1062 3 
DD 4 PUSHL CP : : 
0000G CF FB 49 CALLS #2, PHNSSEND_SMB 3 : 
oc A 3F 4 PUSHAB 12(OP) > 1068 ; 
Cc hUCUOA F 5 PUSHAB 12(CP) 3 : 
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y02-000 PHNSANSWER_CMD = Answer the Phone 13738871382 95:00:32 PHONE . SRC BASICCM DS. 633.1 ’ 19 
00006 F F 4 CALLS 4 1 erate TARGET ; : 
64 3 £5 60089 BLBC RO. 4 : : 
9 C MOVL tha) ; 1068 : 
F RET 37 v4 ’ 
OOFO C3 Os A 9 4$ BICB2 40(CP) 3; 10 § ‘ 
F dé CLAL tp ; 107 : 
0000G CF F CALLS . PHNSF RESH_SCREEN : 5 
2 D C MOVL STATUS : $ 
000000006 &F p F CMPL STATUS, #PHNS_OK : 1078 ; 
1 g BEQL 6$ 3 : 
A 0D 7 PUSHL 23° 3; 1079 3 
0D 7A PUSHL : 
0000G CF FB 7¢ CALLS §5 PHNSBREAK_L INK : 
DD 1 PUSHL STAT : 1080 
0000G CF FB ; 5$: CALLS #1, PHNSINFORM : 
04 6$: RET 3: 1084 


; Routine Size: 137 bytes, Routine Base: SCODE$S + 0439 
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; 768 1085 1 Zsbttl "PHNSANSWERED - Handle Someone Answering Us’ ; 
; 769 1 1 S44 ; 
; 176 1 : 1 ! Functional Description: . 
; “wg 1 5 1! This steering message routine handles the answered message, which : 
; ae 1 1! is set to us when someone answers a call we placed. This message : 
3 ft 4! : forces us to make their PUB permanent and assign a viewport. : 
3 @? 1 35 1 ! Formal Parameters: ; 
s 77 1095 1! rom_msg Address of descriptor of the node/user name spec ° 
; ir 1094 1! of the person who sent the message. It is followed : 
; 778 1095 1! by an eofrom character. * 
; 779 1 4 13 : 
; 780 1097 1! Implicit Inputs: F 
3 fel 1098 1! global data : 
: ree 1099 1! : 
; 78 1100 1 ! Implicit Outputs: : 
; 784 1101 1! global data : 
; 785 11 ¢ 2 : 
: ree 18 1 ! Returned Value: : 
. te 11046 1! none : 
; 788 1105 1! : 
3; 789 1106 1 ! Side Effects: : 
; 790 1107 1! : 
: 791 1108 1 !-- 3 
; 79 1109 1 : 
; 1110 1 3 
3 ie 133) : global routine phn$answered(from_msg): novalue = begin ; 
: 796 118 bind 3 
3; 797 1114 from_msg_dsc = .from_msg: descriptor; 3 
; 798 1115 : 
: 799 1116 Local : 
; 800 1117 status: long, 3 
; 801 1118 op: ref pub, ! Pointer to our PUB. F 
; 1119 spec_tsb: tsb, ' TSB to parse answerer's spec. é 
; 80 1120 tp: ref pub; ! Pointer to answerer's PUB. 3 
BB : 
3 45] 11 é ! We begin by ensuring that we are actually calling someone. If not, : 
3 Ht i : ! it's a spurious message. : 
; 309 11 § op = .phn$ q-pubhead( 0); 3 
; 810 11 if not .oplpub_v_calling) or (.opCpub_l_busylink] eqla 0) then : 
§ i} 1 3 return; : 
: ig 1130 ! Now we will create a TSB so we can parse the spec of the person answering. 3 
; 1% i 1 ! We need to ensure that it really is the person we are calling. : 
3 1 11 y dec (from_asg_dscClen}); : 
; «81 1134 status = phnSmake_tsb(from_msg_dsc,spec_tsb); : 
: \8 1135 check saptosue) : 
: 81 11 tp = .opCpub_l_busylink); : 
; 0 11 if not phn$cmp_target(spec_tsb,tpCpub_b_tsb]) then 

; 1 1 : return; 

; 528 Bs ! It appears that the call is complete. Clean up calling info in our PUB. 


BAS Teens CCMDS = Basic Phone Comman 
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op{pub_v_calling) = false; 
opfbub-t ~busyl ink] = 8: 


tpCpub_v_temporary] = fal 
} abe 3 =“phn$fres h-gereen( false); 
ee eT Link(. Li a _hungup); 
ungu 
ens nform(. stetuns; — 
return; 


7 
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1 
1 
1 
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1 
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1 
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i 
! ' Last but not least 
1 
i 
1 
1 
1 
1 
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WR" OOODNAVULS WN OO0ONOULS WP 


$ ds 1 
HNSANSWERED = Handle Someone Answering Us 12: 


H 14 


Sep- 
=Sep- 


1$: 


i anyone else we might be talk snp t 
Bat ! Finally! We're ie to talk to the person. 
sf phn$force_links(.tp); 
4 phnSinform(phn$_ answered); 
B44 return; 
845 
846 1 end; 
001C 00000 
2 FFIC CE oF OON6 
00006 CF D it 
75 OOFO 6C¢ 03 E1 0000 
OOF8 C3 05 0001 
04 8 B7 0001 
RF DD 60018 
0000G CF - 05 PB $020 
54 g 0? b6 g 
09 54 € 028 
000000006 ot PB 50 5 
en 
of A2 9F 9 
s & F 8 C 
00006 ff g 43 ref 
OOF O c3 0 BA 47 
00F8 . 4 
OOFO C2 4 BA 
f D4 
0000G CF F 
4 0 D C 
00000000G_ 8F 4 9 F 
DD 
dD A 
0000G_ CF FB 6C 


1986 98:55:85 


AX-11 B 
PHONE .S 


Ba 


oOo, 


l 
R 


! Now we can make the person's PUB permanent and assign them a viewport. 


we have to ee Links between the new person and 
creating a conference call. 


art ete Save R2,R3,R4 


aiA S 
1g b LEBSSIGNAL 


3486 SCIP). 


so EC_TS 
- PHNSCMP_TARGET 
k ; 4$ 


24 
#4, 240(TP) 


#1, PHNSFRESH_SCREEN 


status, #PHNS _OK 


TP 
#2, PHNSBREAK_LINK 


Sete Se Se Se Se Se Se Se Se Se Se Se Se Se Se See Se Ge Se Ge Se Ge Se Se Sse Se Be Be 
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4 0 q PUSHL aida ; 1151 
dd 00075 2s: PUSHL TP + 1159 

0000G CF a} 7 CALLS #1, PHNSFORCE_LINKS : 
00000000G 8F DD 0007 PUSHL #PHNS A ANSWEREB 3: 1160 

0000G CF 1 FB 00082 3$: CALLS . PANSINFORM $ 
04 00087 4$: RET : 1163 


; Routine Size: 136 bytes, Routine Base: $CODE$ + 04C2 
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Rsbttl *PHNSREJECT_CMD = Handle REJECT Command’ 


! Functional Description: 

This routine handles the REJECT command, which the user enters 
to reject a ane cott. We have to send the caller a rejected 
message so the ringing will stop. 


Formal Parameters: 
parameter If the user specifies the optional EXIT parameter, 
we will exit after the rejection. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


WN OOONOULS win 


Side Effects: 


global routine phn$reject_cmd(parameter): novalue = begin 


bind 
parameter_dsc = .parameter: descriptor; 


local 
op: ref pub, ! Pointer to our PUB. 
cp: ref pub; ! Pointer to caller's PUB. 


ce ee ee a ed ed ed ed wd od od = dd 


Be Se Se Se Se Ge Ge Se Se Be Ge FE Se Se Se Se Se Ge SFOs Se SHS SH Se Se Se Se Se Se Se Se Se Fe Seas 


! First we must ensure that someone is actually calling us. If not, the 
! user must be confused. 


op = .phn$ q-pubhead(0); 

if not - gy v_answering) or (.opCpub_l_busylink] eqla 0) then ( 
phnSinform(phn$_nocall); 

, return; 


! Now we can break the Link to the caller, sending them a rejected message. 
op(pub_v_answering] = false; 
* opt pub. | busy inkl: 
_\ busylink] = 0; 
réak_link(.cp,smb__rejected); 


' Now we will check for the EXIT parameter. If present, we will force 
! an exit command. Garbage will cause an error message. 


a porenater Sort tond ot Teal arameter_dsc(ptr] 
chSeql (. parame 7 
ot m Sy brapets et: ieee C'EXIT')," ") then 


nu(.parameter_dsc 


wae" 


te Basic Phone Comman 
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JECT_CMD = Handle REJECT Command g: et 7 95:00:82 PHONE. SRCTBA S4ctnoo 04351 Page 433 
sae phn$Sexit_cmd() 


od 


phn$Sinform(phn$_rejectjunk,parameter_dsc); 


estes 


oo 
—— 
nN 


-PSECT SPLITS,NOWRT,NOEXE,2 
54 49 58 45 0006D P.AAI: .ASCII \EXIT\ 3 


-PSECT $CODES,NOWRT,2 


001¢ 00000 ENTRY PHNSRE JECT MD. Save R2,R3,R4 : 1189 
54 0 D0 00002 MOVL PARAMETER, ~R4 : 119 
33 00006 CF 00 00006 MOVL fon S000 PUBHEAD op : 120 
06 ooro )=6—C 4 €1 00008 BBC , 18 : 120 
OOF8 C2 05 00011 TSTL : 
€ 12 0013 BNEQ ; 
000000006 8F DD 901 1$: PUSHL HPHNS NOCALL + 1204 
00006 CF 01 Fe 9010 CALLS , PANSINFORM i en 
00FO c2 1 gh 00 : 2$: BICB2 #16, 240(0P) + 1210 
5 OOF8 C2 dO 00028 MOVL g48{0P), : 1211 
OOF8 C2 D4 00020 CLRL P) :1 1 
g DD 00031 PUSHL : 121 
DD 00 : PUSHL ; 
00006 CF 02 FB 00 CALLS i PHNSBREAK_LINK : 
64 6 003A TSTW = (R4) : 1218 
29 003¢ BEQL 5$ ; 
50 64 3C 0003E MOVZWL (R4), RO : 1220 
04 30 B1 00041 CMPW RO, 4 ; 
0 18 0044 BLEQU : 
50 4 p 0046 MOVL #4, RO ; 
50 20 06 Bb ooo» S620 049 38: CHPCS (R4), @4(R4), #32, RO, P.AAI ; 1219 
06 12 00052 BNEQ 4$ : 
00006 CF FB s CALLS #0, PHNSEXIT_CMD : 1221 
4 DD OO05A 4$ PUSHL R4 > 1223 
000000006 8F DD 0005 PUSHL #PHNS$_REJECTJUN : 
00006 CF 2 FB 0006 CALLS #2, PANSINFOR rt : 
04 00067 5$: RET > 1228 


3; Routine Size: 104 bytes, Routine Base: S$CODE$S + 054A 


14 
BASICCMDS BASICCMDS - Basic Phone Commands 18-56 =1984 02:07: AX-11 Bliss-32 V4.0-74 Page 34 
¥02-000 PANSREDECTED = Handle Rejected Message 1 ~3ep-19 4 95:00:52 PHONE. GRCTBASTCCRDS. 3551 . (14) 
3 1 } 6 } Bsbttl "PHNSREJECTED = Handle Rejected Message’ 
: 16 1 1 i Funct ional Description: 
3 1 1 § 1! This steering message routine handles the rejected message, 
: 18 1 1! which someone sends us when they reject our phone call. 
; 333 : r : } This message forces us to cancel the call. 
: 921 1 5 1 | Formal Parameters: 
3; 9 ¢ 1 1: from_msg The address of the descriptor of the node/user name 
3; 9 1 S 1! spec of the person rejecting our call. It is 
8 3 ¢ : Z : . followed by an eofrom character. 
: 9 $ 1 re 1 ' Implicit Inputs: 
; . : tg : } global data 
$ 929 1244 1 1 Implicit Outputs: 
3 3 » ; $2 ! global data 
: 9 g 1 <3 1 ' Returned Value: 
: 382 i rk : 
: 935 1250 1 ! Side Effects: 
i$ 1583 | | 
2 eae 
: Bet ! 32 global routine phn$rejected(from_msg): novalue = begin 
: 94 1257 2 bind 
; 94 1 38 from_msg_dsc = .from_msg: descriptor; 
: 308 i 20 local 
3 946 1261 status: long, 
; 947 1 o¢ op: ref pub, ! Pointer to our PUB. 
; 948 126 spec_tsb: tsb, ! TSB to parse answerer's spec. 
3 949 1264 tp: ref pub; ! Pointer to answerer's PUB 
: get 1566 
; 326 1569 ! We begin by ensuring that we are actually calling someone. If not, 
3 oer 1508 ! it's a spurious message. 
; 955 1270 2 op = .phn$ q_pubheadt 0]; 
3 329 1271 if not .oplpub_v_calling) or (.opCpub_l_busylink] eqla 0) then 
3 32f ! Le return; 
: 959 1274 !' Now we will create a TSB so we can parse the spec of the eqreen rejecting. 
: 369 ! o ! We need to ensure that it really is the person we are calling. 
; 306 127 dec (from_ase_éecl lend): 
; 9% 127 status = phnSmake_tsb(from_msg_dsc,spec_tsb); 
: 964 127 check (8 atus); 
: 965 1280 tp = .op pub_l_busylink); 
; 4] 1281 if not phn$cmp_target(spec_tsb,tp[pub_b_tsb]) then 
$ U4 ; § return; 
: 390 ' Se ! Now we can break the call to the person. Also inform the user. 


85 bytes, 


3; Routine Size: 


S 
CT 


AX-11 Bliss-32 V 
PHONE . SRC Sasicem 


= Basic Phone Commands 
ED = Handle Rejected Message 


phn$break_call(); 
Sans nform(phn$_ rejected): 


return; 


end; 
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PHNSEUSY = Handle Busy Message 1e=Sep-1986 19:55:95 EPMONE. SRCSBA 


} ; } Rsbttl *PHNSBUSY = Handle Busy Message’ 

1 i i Funct ional Description: 

1294 : This steering message routine handles the busy message, which 
1295 1! someone sends us when they are busy and can't continue. 

1 38 1! This message wquesty comes from someone we are calling, but in 

; 3 ! very bizarre circumstances can also come from someone calling us. 
1 38 1 | Formal Parameters: 

1 1! from_msg The address of the descriptor of the node/user name 
1301 1! spec of the person who is busy. It is followed by 
1 § } an eofrom character. 

1304 1 ! Implicit Inputs: 

! 0g ! : ' global data 

1307 1! Implicit Outputs: 

} oS : global data 

1310 1 ! Returned Value: 

: 1 } : none 

1 18 1 | Side Effects: 

1314 1! 

1315 1 !<= 

16 

: \3 global routine phn$busy(from_msg): novalue = begin 

1320 bind 

: 1 from_msg_dsc = .from_msg: descriptor; 

1 : local 

1324 status: long, 

1325 op: ref pub, ! Points to our PUB. 

1 § spec_tsb: tsb, ! TSB to parse busy person's spec. 
; } tp: ref pub; ! Points to busy person's PUB. 

1 

1330 ! First we ensure that we are either calling or answering someone. If not 
! 1 ! ignore the message. 

1 § op=. nnSgq_pubheedl 0; 

1334 if .oplpub_l“busylink] eqla 0 then 

: 5 return; 

1 ! Now we will create a TSB so we can parse the spec of the busy person. 

’ ! We need to ensure that it really is the person we are calling/answering. 
1 dec (from.asg_dscC lend): 

1 status = phnSmake_tsb(from_msg_dsc,spec_tsb); 

1 check (.status); 

1 tp = .op pub_l_busylink; 

1 f not phn$cmp_target(spec_tsb,tpCpub_b_tsb]) then 

! return; 

1 ! Now if we are calling the busy person, we better break the call. 


; Routine Size: 118 bytes, Routine Base: S$CODE$ + 0607 


BASICCMDS BASICCMDS = Basic Phone Commands 1b-5¢ Sep-1984 AX-11 Bliss-32 V4.0-74 Page 37 Fl 
oO. 500 PHNSBUSY = Handle Busy Message Sep-1 3B 96: Qf $2 PHONE. SRCIBA siclmbs 63551 at as V 
H 19 ¢ } : ! If they are calling us, just assume something went wrong and forget it. : 
: 10 1350 3 if .opCpub_ callin ) then ( : 
; 10 : 1 26 : * hast Break : 3 
: 19 8 3 ts He De 19 ¢ ; 
: 1040 1 34 ti .opCpub_v_answering] then ( ; 
3 1041 1355 = pub_v_ answer ing] = pratense 3 
$ 1006 1356 publ \“b 3 
3; 104 1357 > n$break merit tp.snb busy); PF 
: 1044 1358 phn$Sinform(phn$_dead); 3 
: 1045 1359 § 3 
: 1046 1360 return; $ 
3; 1047 1361 $ 
3 1048 1362 1 end; 3 
001C 00000 ENTRY PaeeUsy Save R2,R3,R4 ; 1318 3 
5E FFIC CE 3 80008 MOVAB =-228( 3 s 
52 0000G CF DO 0000 MOVL Pasa. POBHEAD, oP 3; 1333 3 
53 OOF8 3 DO 0000C MOVL 48(OP), R3 3 1334 3 
62 13 00011 BEQL $ $ 3 
04 BC B67 00013 DECW af ROM_MSG : 1340 : 
SE DD 00016 PUSHL 3: 1341 3 
04 AC DD 00018 PUSHL FROM_MSG 3 Fs 
0000G CF 02 Fe 00018 CALLS #2, PHNSMAKE _1SB 3 $ 
09 28 E8 00020 BLBS STATUS, 1$ 3 1342 3 
i 0 DD 00023 PUSHL STATUS : ; 
602000006 00 9 FB 00025 CALLS #1, LIBSSIGNAL $ $ 
54 3 p00 0002C 1$: MOVL R3, TP : 1343 3 
OC Ad OF 0002F PUSHAB 12(TP) > 1344 : 
04 AE 9F 000 g PUSHAB SPEC_TSB é é 
0000G CF 9¢ FB 000 CALLS ace PHNSCMP_ TARGET 3 3 
28 5 +4 OO3A BLBC R é é 
5 0OFO ce E 0003p MOVAB 240(0P), R3 > 1350 : 
10 63 E1 00042 BBC #3, (R35, 2 : F 
00006 CF 0 FB 0046 CALLS #0, PHNSBREAK_CALL : 1351 : 
000000006 8F DD 00048 PUSHL #PHN$_BUSYCALC 3 1352 3 
0000G CF 8 4 0 2) CALLS #1, PANSINFORM : 3 
1B 63 4 f 0056 2$: BBC #4, (R3), 3 3: 1354 3 
63 19 A 6 2A BICB2 «#16, (R35 :1 23 : 
OOF8 C2 D4 D CLRL 248(0P) : 1356 ; 
n DD 0006 PUSHL at : 1357 $ 
4 DD 0006 PUSHL 3 : 
0000G CF ge FB be CALLS ie. nee LINK g : 
00000000G 8F DD $A PUSHL a? ; 1358 : 
0000G CF 01 FB 000 9 CALLS HN AD INFORM 3 3 
04 00075 3$: RET 3: 1362 3 
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MDS = Basic Phone Commands 1b-3¢ -1984 02:07: AX-11 i 
K = Handle Conversation Text We Typed 1 ~3007 138% 95:00:32 PHONE. RCIA 


Rsbttl *PHNSTALK = Handle Conversation Text We Typed’ 
i Functional Description: 

This steering message routines handles the talk message, which 
contains conversation text that we typed. The text has to be 
a a in our viewport and sent to everyone we are talking 

now. 


Formal Parameters: 
x The address of the descriptor of the text we typed. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine phn$talk(text): novalue = begin 


local 
p: ref pub; 


! We now scan the PUB chain (but not our PUB), Looking for people we are 
! talking to. We send them the text. 


p = ..phn$gq_pubhead([0); 
until .p eqla phn$gq pubhead do ( 
if not .pCpub_v_temporary] and 
not .pLpub_v_uhaveheld] and 
not .plpub_v_hasuheldJ then 


phn$send_smb(.p,smb__listen,.text); 


” p = .pCpub_l_flink]; 


! Now we can actually display the text in our own viewport. This was done 
! Last because I think it gives the user a better feel for response time. 


phn$show_text(.phn$gq_pubhead(0],.text); 
return; 


end; 
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BASICCMDS BASICCMDS = Basic Phone Commands Sep-1 AX-11 Bliss-32 V4.0-7 P 9 
Y02~-000 PHNSTALK = Handle Conversation Text We Typed 12: Sep- 38 93: Qf $2 PHONE. SRCJBASICCMDS. 83 31 a9 43 


0004 «ENTRY PHNSTALK, Save R2 : 3 
5 00006 DF pO MOVL aPHNSGG PUBHEAD, P ; ; 
2 0006 CF 1$ MOVAB NSGQ Q_PUBHEAD, RO : ; 
2 0 C CMPL pn : ; 
1 0 OF BEQL 3$ : ; 
50 00FO g 9— 00011 MOVAB 240(P), RO : ; 
13 60 EO 00016 BBS #2, (RO), 2$ : ; 
10 : E8 OOO1A BLBS (RO), 2$ : : 
0c 60 1 €0 0001D BBS #1, (RO), 2$ : ; 
04 AC DD 00021 PUSHL TEXT : : 
DD 00024 PUSHL #14 : ; 
DD 0 6 PUSHL P : ; 
00006 CF FB CALLS #3, PHNSSEND_SMB : ; 
52 62 D0 0002D 28 MOVL (PS, P : ; 
D5 11 00030 BRB 1$ : : 
04 AC DD 000 : 3$ PUSHL TEXT : ; 
00006 CF DD 000 PUSHL | PHN$GQ_PUBHEAD : : 
00006 CF 02 FB 20039 CALLS #2, PHNSSHOW_TEXT : 
04 0003€ RET : 


; Routine Size: 63 bytes, Routine Base: S$CODE$ + 067D 
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Rsbttl *PHNSLISTEN = Handle Conversation Text Someone Else Typed’ 


i Functional Description: 
This steering message routine handles the Listen message, which 
someone sends us when they type conversation text for us to see. 


Formal Parameters: 
text_msg Address of descriptor of two strings, separated 
by an eofrom character: 
. The node/user name spec of the sender. 
2. The text they want us to see. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine phn$listen(text_msg): novalue = begin 


bind 
text_msg_dsc = .text_msg: descriptor; 


local 
status: long, 
text_dsc: descriptor, 
spec_tsb: tsb, 
p: ref pub; 


! We begin by rebuilding the message descriptor so that it only describes 
! the sender's spec. We build a second descriptor for the text itself. 


bone cect ptr = ch$find_ch(.t rt _psg_dscClen].. text msg_dsc(ptr],eofrom) + 1; 
text_dscllen] = .text nig_dsct Len -"(.text_dscC(ptr] -_Ttext_msg_dsc(ptrJ); 
text_msg_dscClen] = .fext_dsclptr] - .text_msg_dsc(ptr] - 1; 


! Now we make a TSB to parse the sender's spec. 


status = phn$make_tsb(text_msg_dsc,spec_tsb); 
check (.status); 


! Now we look through the PUB chain, looking for PUBs that represent the 
! person who sent us the text. The text is displayed in their viewport. 


p = _..phn$gq_pubhead([0); 
until .p eqla phn$gq_pubhead do ( 
if not -PEpub_v_temporary and 
not .plpub_v_uhaveheld) and 


F 15 
BASICCMDS BASICCMDS = Basic Phone Commands 16-Sep-1984 02:07: AX-11 Bliss-32 V4.0-74 P 1 
Ott 660 BANC TeTeN - Handle Conversation Text Someone E 19-808- 1382 95:00:82 PHONE CRCIBASTCERDS 03551 age 45) 
: 1160 147 not .pCpub_v_hasuheld) then 
i 18) 1348 Re EBNI  PPO NG ah Sy? 
Py Nnocm arge u ts -spec_ts then 
3 1188 1475 ‘ phaSshow. text<.B,fext.dse)s” 
: 1188 1258 Cpub_t_flink] 
; = .pCpub_l_flink); 
: 1166 1478 ); Jee 
: 116 147 
; 1168 1480 return; 
: 1169 1481 
: 1170 1482 end; 
0004 99009 .ENTRY PHNSLISTEN, Save R2 3 1461 
5 FF14 CE i 000¢ MOVAB -236(SP), SP : 
6 04 A p 000 MOVL TEXT MSG, R2 + 1444 
06 B2 6 060 3A 00008 LOCC «©=«._s#0,_:«TR2), a4(R2) + 1456 
9 12 9910 BNEQ ='1$ : 
D4 0001 CLRL sR : 
FC OAD 01 Al Hs 0014 1$ MOV 1(R1), TEXT_DSC+4 : 
50 oa A FC AD C3 00019 SUBL3 TEXT_OSC+4,~4(R2), RO + 1457 
FB AD 5 62 Al 0001F ADDW3 (R2)> RO, TEXT DSC ; 
50 FC OAD 04 =A C3 0024 SUBL3 4(R25, TEXT DST+4, RO > 1458 
62 50 01 A3 0002A SuBW3 #1, Rb, (R2) : 
4004 8F BB 000 PUSHR #*M<R2.SP> + 1462 
00006 CF : FB 00 CALLS #2, PHNSMAKE_TSB ; 
09 E8 000 LBS STATUS, 2$ + 1463 
0 DD 005A PUSHL STATUS F 
000000006 09 01 FB 00 CALLS #1, LIBSSIGNAL : 
2 00006 DF D 004 a8: MOVL § @PHN$GQ PUBHEAD, P t 1468 
50 00006 cr 9E 00048 3$: MOV PHNSGQ_PUBHEAD, RO + 1469 
50 2 D1 9940 CMPL 6=OCoP R ; 
2c 13 0 5 BEG SsS5 ; 
50 OorO «CC 05 MOVAB 240(P), RO + 1470 
1E 60 62 € 905 BSS #2, (RO), 4$ F 
1B E 99 8B BLBs = RO) + 1471 
17 60 1 € OE BBS #i, (RO), 4$ + 1472 
bb 006 PUSHL SP + 1474 
0c A2 9F 00064 PUSHAB 12(P) F 
00006 CF 9 FB 67 CALLS #2, PHNSCMP_TARGET ; 
OA f C BLBC —._«RO, : 
F8 AD OF f PUSHAB TEXT_DSC + 1475 
3 DD : PUSHL ; 
00006 cf FB 7 CALLS #2, PHNSSHOW_TEXT ; 
2 62 D 79 4$: MOVL (PS, P : 1477 
CA 11 0007C BRB 3$ : 1469 
04 O007E 5S: RET + 1482 


; Routine Size: 127 bytes, Routine Base: S$CODE$ + 06BC 
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BASICCMDS BASICCMDS = Basic Phone Commands 18-5¢ 1984 :07: AX-11 B 
Y02-000 PHNSHANGUP_CMD = Handle HANGUP Command 1 7300-1382 93:05:32 PHONE .S 
1 Zsbttl ‘PHNSHANGUP_CMD = Handle HANGUP Command’ 
res 
' Functional Description: 
This routine handles the HANGUP command, by which the user hangs 


up the phone. This concess any and all conversations currently 
in progress or being initiated. 


RCSBA 


—_ 
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SRLS APA LOGO EAR DODO SRA OOOO OIG 


~OCoCDCD CD CDCDCD 
ew 


OOONOM 


Formal Parameters: 
none 

Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 


OCONOVEWwN— 


Side Effects: 


global routine phn$hangup_cmd: novalue = begin 
local 
p: ref pub, p2: ref pub; 


! First we scan all the PUBs (Lut not our own) and break the Link to 
! absolutely all of them. 


p = ..phn$gq_pubhead(0); 
until .p eqla phn$ bhead do ( 
Pas 's stout ties 


= .pCpu n 
DanSbreak. Link(.p.smb._hungup); 


PIPIPIPIPINIPIPINNONINY 8 at et et at tt tt tt tt tt 


phn$fresh_screen( false); 
return; 


— 
Sa eee shah beth Ab db dh Ah Ah db sh sd sesh eales leslie les e LULU USE oD oP? a? a? oF? oF? a? at ot et et et et et ee ee 


Be Se Se Se Ge Ge Se Se Se Se Ge Fe Se Se Ge Se Ge Fe Se Fe Se Fe Fe Se Ge Ge Se Se Ge Ge Se Se Se Se SeSe Sse Se Se SeSe Se Se Sse Sse Sees Sse teSseese 
a ee ee ee ee ee ee ee a a a dd a ed dd 
FW QO ODVNORUS WN" O OONOUS WN 000 MFWN— 


ee ee et ed ed ad ed od dt ds 2 2 = 2 = = = SS I 8 a a 


=P ORONOPORONOPORONOPOPONU WININI IRON PONNIY 2 = = ss 


= .pée; 
i ei 
\ ! Now we have to clear the calling/answering information in our PUB, 
i ! because we just cancelled any such activities. Also refresh the screen. 
15 = .phn$ ubhead(0); 
18 5 pub v-cattin J = false; 
1 plpub_v_answer ng = false; 
18 plpub_l_busylink] = 0; 
: 


end; 
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BASICCMDS BASICCMDS = Basic Phone Commands 16-Sep-1984 02:07: AX-11 Bliss-32 V4.0-74 Page 43 F 
oO. 000 PHNSHANGUP_CMD = Handle HANGUP Command 1 =300 71383 95:00:82 PHONE. SRCIBASICCMDS .B3 31 . (18) ve 
000¢ .ENTRY PHNSHANGUP_CMD, Save R2,R3 : 1507 ; 

99006 DF p MOVL §§ @PHNS$GQ_PUBHEAD, P : 1316 ; 

G iY t 1$: ROVAB PHNSGQ_PUBHEAD, RO + 151 : 

F BEQL af : ; 

53 D 1 MOVL P), P2 : 1518 : 

DD 00014 PUSHL #9 + 151 : 

DD 16 PUSHL P : : 

00006 cf FB 1 CALLS #2, PHNSBREAK_LINK : ; 

: 28 9Y Boo: os AR Be : 1390 

5 00006 CF 00 2s: MOVL. PHNS$GQ_PUBHEAD, P : 15 : 

00FO 2§ ig BR BICB2 #24, 2%0(P) : 15 ; 

00F8 ¢ D4 CLRL 248 (P) : 1529 ; 

E 04 000 CLRL = = (SP) : 15 F 

00006 CF 01 FB 909 CALLS #1, PHNSFRESH_SCREEN ane ; 


; Routine Size: 56 bytes, Routine Base: $CODE$S + 0738 


15 
BASICCMDS BASICCMDS = Basic Phone Commands 18-50 -1984 02:07: AX-11 Bliss-32 V4.0-74 p 44 
VOL-000 PHASHUNGUP - Person Hung Up on Us 1 ~Sep-19 4 93:95:38 PHONE. SRC) ASICCHDS 039; 1 29°19) 


refresh: byte; 


wr 


! First we parse the sender's spec by making a TSB. 
dec (from_msg_dscC[len]); 

status = phndmake_tsb(from_msg_dsc,spec_tsb); 

check (.status); 


! Now we loop through ali of the PUBs (but not our own) and find ones 


TSE Unido be ane oi 


? ! that represent the person who just hung up on us. 
7 op = .phn$ ubhead(0); 
7 Ss .phnsgapubheadL; 
74 refresh = false; 
75 until .p eqla phnsaq pubhead do ( 
i pe = .pCpub_T_flink]; 
pu 


hn$cmp_ftarget ( b_tsb],spec_tsb) then 
P if" .p ola’ pet auB t busyt ine then ( 


1 We are busy with this person, If we're calling 
! them, cancel the call. If they 


Pele) 


3 } ‘ } é } Rsbttl *PHNSHUNGUP = Person Hung Up on Us' 

3 1 1 1! Funct tenet Description: 

3; 3 8 1 8 1: This steering message routine handles the hungup message 

3 3 1 1} which someone sends us when they hang up on us. We brea 

3 : ? : re ; any Links we might have with that person. 

3 1 § 1 ‘3 1 ! Formal Parameters: 

3 1 1545 1! rom_msg Address of descriptor of complete node/user name 

3 ; ¢ 1308 : spec of the person hanging up, followed by eofrom. 

3 1 1346 1! Implicit Inputs: 

3 : i 120 1 global data 

3; 1239 1869 1 ! Implicit Outputs: 

; : re 1381 : } global data 

3 1 og 1 3 1 ! Returned Value: 

Be RT 

3 1245 1555 1! Side Effects: 

3 3 r¢ 1326 1! 

.S 1557 1 !-- 

1525 1389 | 

; ; ? 1269 global routine phn$hungup(from_msg): novalue = begin 

:1 156 bind 

3 3 : 1368 from_msg_dsc = .from_msg: descriptor; 

1588 1363 5 Local 

3 oca 

3; 1256 1566 status: long 

: 1257 1567 spec_tsb: ts 

3; 1258 1568 p: ref pub pe: ref pub, 

; op: ref pub, ! Pointer to our . 
1259 1569 f ! Poi PUB 
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$" ( 
ng = false; 
kj = 0 


breéak_Link(.p,smb__hungup); 


to this person. 


Return 


!' the favor, and remember we have to refresh screen. 


phn$break_Link(.p,smb__hungup); 
refresh = true; 


= .p2; 
: i?) p 


! If we broke any Links with this person that actuall 
' conversation, we need to refresh the screen and tel 


if .refresh then ( 
phn$fresh_screen( false); 


phn$inform(phn$_hungup, spec_tsb(tsb_q_tkndsc 
-spec_tsb(ts 


); 
return; 


end; 
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; Routine Size: 181 bytes, Routine Base: S$CODE$ + 0773 


1638 1 
1629 0 end eludom 
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Bytes 
wOvER. NOWRT, 
208 NOWRT, 
NOVEC. WRT. 
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RD ,NOEXE, rt tee 
RD , EXE,N 
RD ,NOEXE, NOSHR. 


toot 08:07:25 Yate! Bliss 


(P), P2 


12(P) 
‘3, PHNSCMP_TARGET 
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5 Library Statistics 

: soceee== Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 19 0 581 00:00.7 

3 COMMAND QUALIFIERS 

; Sadi eees Tica? Koa cies SO, ercineraae el MSPCE:BASICCMDS/UPDATE=(ENH$:BASICCMDS) 
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